home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 August / 64er_Magazin_89-08_1989_Markt__Technik_de.d64 / replace move (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  868 b   |  38 lines
  1. 10 ifl=.thenl=1:load"repl c000",8,1
  2. 20 sys49152
  3. 30 print"[147]antireplace written by werner hunger '89"
  4. 40 :
  5. 50 print"wo soll die neue routine liegen"
  6. 60 input"(hex-adr)";h$:print
  7. 70 ifleft$(h$,1)="$"thenh$=right$(h$,len(h$)-1)
  8. 80 iflen(h$)<>4thenprint"4 stellen !":forx=.to500:next:run30
  9. 90 a$=h$:gosub300:ad=a:gosub350
  10. 100 f$="@:repl "+h$+"/"+str$(ad)+",p,w":print:print
  11. 110 open1,8,2,f$:print#1,chr$(l)chr$(h);
  12. 120 a=ad-49152:gosub350:fl=l:fh=h
  13. 130 readw
  14. 140 forx=0to176
  15. 150 a=peek(49152+x)
  16. 160 ifx<>wthen260
  17. 170 readw
  18. 180 ifhlthen220
  19. 190 a=a+fl:ifa>255thena=a-256:ue=1
  20. 200 ifa<.thena=a+256:ue=-1
  21. 210 goto250
  22. 220 a=a+fh+ue:ue=.
  23. 230 ifa>255thena=a-256
  24. 240 ifa<.thena=a+256
  25. 250 hl=not hl
  26. 260 print#1,chr$(a);
  27. 270 print176-x"[157] [145]":next
  28. 280 close1:end
  29. 290 :
  30. 300 a1$=left$(a$,2):gosub310:a=e*256:a1$=right$(a$,2):gosub310:a=a+e:return
  31. 310 a2$=left$(a1$,1):gosub330:e=a1*16:a2$=right$(a1$,1):gosub330:e=e+a1
  32. 320 return
  33. 330 a1=asc(a2$)-48:ifa1>9thena1=a1-7
  34. 340 return
  35. 350 h=int(a/256):l=a-h*256:return
  36. 360 :
  37. 370 data1,3,11,13,27,28,49,51,68,69,76,77,88,89,105,106,118,119,151,152,0
  38.